0 PRINT"[147]":POKE53280,0:POKE53281,6:POKE646,1
1 REM
2 REM RUPERT REPORT #23:MONKEY BUSINESS
3 REM    >> WEIGHTED KEYBOARD <<
4 REM
5 PRINT"SIMULATE A MONKEY AT A SPECIAL"
6 PRINT"KEYBOARD WITH NUMBERS OF KEYS"
7 PRINT"IN PROPORTION TO THE FREQUENCY OF"
8 PRINT"EACH LETTER'S USAGE IN ENGLISH."
9 REM
100 DATA 275," ",130,E,92,T,79,N
101 DATA 76,R,75,O,74,A,74,I,61,S
102 DATA 42,D,36,L,34,H,31,C,28,F
103 DATA 27,P,26,U,25,M,19,Y,16,G
104 DATA 16,W,15,V,10,B,5,X,3,Q
105 DATA 3,K,2,J,1,Z,-1,*
185 REM -- PACK STRINGS WITH LETTERS --
190 PRINT CHR$(147) "TOTAL = 0"
200 CT=0 : IX=0 : TTL=0
210 READ N,C$ :NCT=0 :IF N=-1 THEN 300
220 A$(IX)=A$(IX)+C$
230 NCT=NCT+1 : CT=CT+1 : TTL=TTL+1
240 IF CT=255 THEN CT=0 : IX=IX+1
250 IF NCT<N THEN 220
260 PRINT CHR$(19)TAB(7) TTL : GOTO 210
295 REM   -- PICK AND PRINT LETTERS --
300 K=INT(RND(0)*TTL)
310 X=INT(K/255) : CH=K-X*255+1
320 L$=MID$(A$(X),CH,1)
330 PRINT L$;
340 GOTO 300